home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / LIBRARY / DMTDEMOS / SETDTA.DEM < prev    next >
Text File  |  1994-07-02  |  364b  |  20 lines
  1. program SetDTASample;
  2.  
  3.  uses crt, DMT;
  4.  
  5.  type
  6.    bufferSize = array[ 1..256 ] of byte;
  7.  
  8.  var
  9.    NewDTA : BufferSize;
  10.  
  11. begin
  12.   Color( 7, 0 );
  13.   clrscr;
  14.  
  15.   SetDTA( Seg( NewDTA ), Ofs( NewDTA ) );    { Call SetDTA procedure }
  16.  
  17.   writeln;
  18.   writeln( 'New DTA address : ', WrdToHex( seg( NewDTA ) ), ':', WrdToHex( ofs( NewDTA ) ) );
  19.   GetEnter;
  20. end.